home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 7: Sunsite / Linux Cubed Series 7 - Sunsite Vol 1.iso / system / shells / scsh-0.4 / scsh-0 / scsh-0.4.2 / scsh / jcontrol2.c < prev    next >
C/C++ Source or Header  |  1995-11-04  |  2KB  |  77 lines
  1. /* This is an Scheme48/C interface file, 
  2. ** automatically generated by cig.
  3. */
  4.  
  5. #include <stdio.h>
  6. #include <stdlib.h> /* For malloc. */
  7. #include "libcig.h"
  8.  
  9. #include <sys/signal.h>
  10. #include <sys/types.h>
  11. #include <unistd.h>
  12.  
  13. extern int errno;
  14.  
  15. #define errno_or_false(x) (((x) == -1) ? ENTER_FIXNUM(errno) : SCHFALSE)
  16.  
  17. scheme_value df_set_procmask(long nargs, scheme_value *args)
  18. {
  19.     extern int set_procmask(int , int , int *);
  20.     scheme_value ret1;
  21.     int r1;
  22.     int r2;
  23.  
  24.     cig_check_nargs(3, nargs, "set_procmask");
  25.     r1 = set_procmask(EXTRACT_FIXNUM(args[2]), EXTRACT_FIXNUM(args[1]), &r2);
  26.     ret1 = ENTER_FIXNUM(r1);
  27.     VECTOR_REF(*args,0) = ENTER_FIXNUM(r2);
  28.     return ret1;
  29.     }
  30.  
  31. scheme_value df_get_procmask(long nargs, scheme_value *args)
  32. {
  33.     extern int get_procmask(int *);
  34.     scheme_value ret1;
  35.     int r1;
  36.     int r2;
  37.  
  38.     cig_check_nargs(1, nargs, "get_procmask");
  39.     r1 = get_procmask(&r2);
  40.     ret1 = ENTER_FIXNUM(r1);
  41.     VECTOR_REF(*args,0) = ENTER_FIXNUM(r2);
  42.     return ret1;
  43.     }
  44.  
  45. scheme_value df_set_int_handler(long nargs, scheme_value *args)
  46. {
  47.     extern scheme_value set_int_handler(int , scheme_value , int , scheme_value *, int *);
  48.     scheme_value ret1;
  49.     scheme_value r1;
  50.     scheme_value r2;
  51.     int r3;
  52.  
  53.     cig_check_nargs(4, nargs, "set_int_handler");
  54.     r1 = set_int_handler(EXTRACT_FIXNUM(args[3]), args[2], EXTRACT_FIXNUM(args[1]), &r2, &r3);
  55.     ret1 = r1;
  56.     VECTOR_REF(*args,0) = r2;
  57.     VECTOR_REF(*args,1) = ENTER_FIXNUM(r3);
  58.     return ret1;
  59.     }
  60.  
  61. scheme_value df_get_int_handler(long nargs, scheme_value *args)
  62. {
  63.     extern scheme_value get_int_handler(int , scheme_value *, int *);
  64.     scheme_value ret1;
  65.     scheme_value r1;
  66.     scheme_value r2;
  67.     int r3;
  68.  
  69.     cig_check_nargs(2, nargs, "get_int_handler");
  70.     r1 = get_int_handler(EXTRACT_FIXNUM(args[1]), &r2, &r3);
  71.     ret1 = r1;
  72.     VECTOR_REF(*args,0) = r2;
  73.     VECTOR_REF(*args,1) = ENTER_FIXNUM(r3);
  74.     return ret1;
  75.     }
  76.  
  77.